home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 March / Pc Users extra 6.iso / pshare95 / prog / pvie / pview.exe / data.1 / grphx.Frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-12-15  |  6.5 KB  |  201 lines
  1. VERSION 5.00
  2. Object = "{B283E209-2CB3-11D0-ADA6-00400520799C}#1.0#0"; "PVPRGBAR.OCX"
  3. Object = "{B283E1F1-2CB3-11D0-ADA6-00400520799C}#1.0#0"; "PVDIAL.OCX"
  4. Begin VB.Form GraphXFrm 
  5.    Caption         =   "Graphical Controls"
  6.    ClientHeight    =   3885
  7.    ClientLeft      =   2100
  8.    ClientTop       =   1365
  9.    ClientWidth     =   7530
  10.    LinkTopic       =   "Form2"
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   3885
  13.    ScaleWidth      =   7530
  14.    Begin PVDialLib.PVDial PDial3 
  15.       Height          =   855
  16.       Left            =   120
  17.       TabIndex        =   6
  18.       Top             =   2880
  19.       Width           =   1095
  20.       _Version        =   65536
  21.       _ExtentX        =   1931
  22.       _ExtentY        =   1508
  23.       _StockProps     =   64
  24.    End
  25.    Begin PVDialLib.PVDial PDial2 
  26.       Height          =   855
  27.       Left            =   120
  28.       TabIndex        =   5
  29.       Top             =   1800
  30.       Width           =   1095
  31.       _Version        =   65536
  32.       _ExtentX        =   1931
  33.       _ExtentY        =   1508
  34.       _StockProps     =   64
  35.    End
  36.    Begin PVDialLib.PVDial PDial1 
  37.       Height          =   855
  38.       Left            =   120
  39.       TabIndex        =   4
  40.       Top             =   720
  41.       Width           =   1095
  42.       _Version        =   65536
  43.       _ExtentX        =   1931
  44.       _ExtentY        =   1508
  45.       _StockProps     =   64
  46.    End
  47.    Begin PVProgressBarLib.PVProgressBar Pct3 
  48.       Height          =   855
  49.       Left            =   1560
  50.       TabIndex        =   2
  51.       Top             =   2880
  52.       Width           =   5895
  53.       _Version        =   65536
  54.       _ExtentX        =   10398
  55.       _ExtentY        =   1508
  56.       _StockProps     =   237
  57.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  58.          Name            =   "MS Sans Serif"
  59.          Size            =   8.25
  60.          Charset         =   0
  61.          Weight          =   400
  62.          Underline       =   0   'False
  63.          Italic          =   0   'False
  64.          Strikethrough   =   0   'False
  65.       EndProperty
  66.       FillColor       =   16711680
  67.    End
  68.    Begin PVProgressBarLib.PVProgressBar Pct2 
  69.       Height          =   855
  70.       Left            =   1440
  71.       TabIndex        =   1
  72.       Top             =   1800
  73.       Width           =   5895
  74.       _Version        =   65536
  75.       _ExtentX        =   10398
  76.       _ExtentY        =   1508
  77.       _StockProps     =   237
  78.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  79.          Name            =   "MS Sans Serif"
  80.          Size            =   8.25
  81.          Charset         =   0
  82.          Weight          =   400
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       ShowTickMarks   =   -1  'True
  88.       ShowPercentComplete=   0   'False
  89.       FillColor       =   65280
  90.    End
  91.    Begin PVProgressBarLib.PVProgressBar Pct1 
  92.       Height          =   855
  93.       Left            =   1440
  94.       TabIndex        =   0
  95.       Top             =   720
  96.       Width           =   5895
  97.       _Version        =   65536
  98.       _ExtentX        =   10398
  99.       _ExtentY        =   1508
  100.       _StockProps     =   237
  101.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  102.          Name            =   "MS Sans Serif"
  103.          Size            =   8.25
  104.          Charset         =   0
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       ShowTickMarks   =   -1  'True
  111.       ShowNumbers     =   -1  'True
  112.       FillColor       =   255
  113.    End
  114.    Begin VB.Label Label1 
  115.       Caption         =   $"grphx.frx":0000
  116.       Height          =   495
  117.       Left            =   480
  118.       TabIndex        =   3
  119.       Top             =   120
  120.       Width           =   6375
  121.    End
  122. Attribute VB_Name = "GraphXFrm"
  123. Attribute VB_GlobalNameSpace = False
  124. Attribute VB_Creatable = False
  125. Attribute VB_PredeclaredId = True
  126. Attribute VB_Exposed = False
  127. Private Sub Pctbar321_GotFocus()
  128. End Sub
  129. Private Sub Pctbar322_GotFocus()
  130. End Sub
  131. Private Sub Pctbar323_GotFocus()
  132. End Sub
  133. Private Sub Form_Load()
  134. PDial1.value = 25
  135. Pct1.value = 25
  136. PDial2.value = 50
  137. Pct2.value = 50
  138. PDial3.value = 75
  139. Pct3.value = 75
  140. End Sub
  141. Private Sub PDial1_LineDown(ByVal Position As Long, TurnDial As Integer)
  142. Pct1.value = Position
  143. End Sub
  144. Private Sub PDial1_LineUp(ByVal Position As Long, TurnDial As Integer)
  145. Pct1.value = Position
  146. End Sub
  147. Private Sub PDial1_PageDown(ByVal Position As Long, TurnDial As Integer)
  148. Pct1.value = Position
  149. End Sub
  150. Private Sub PDial1_PageUp(ByVal Position As Long, TurnDial As Integer)
  151. Pct1.value = Position
  152. End Sub
  153. Private Sub PDial1_ThumbPosition(ByVal Position As Long, TurnDial As Integer)
  154. Pct1.value = Position
  155. End Sub
  156. Private Sub PDial1_ThumbTrack(ByVal Position As Long, TurnDial As Integer)
  157. Pct1.value = Position
  158. End Sub
  159. Private Sub PDial2_LineDown(ByVal Position As Long, TurnDial As Integer)
  160. Pct2.value = Position
  161. End Sub
  162. Private Sub PDial2_LineUp(ByVal Position As Long, TurnDial As Integer)
  163. Pct2.value = Position
  164. End Sub
  165. Private Sub PDial2_PageDown(ByVal Position As Long, TurnDial As Integer)
  166. Pct2.value = Position
  167. End Sub
  168. Private Sub PDial2_PageUp(ByVal Position As Long, TurnDial As Integer)
  169. Pct2.value = Position
  170. End Sub
  171. Private Sub PDial2_ThumbPosition(ByVal Position As Long, TurnDial As Integer)
  172. Pct2.value = Position
  173. End Sub
  174. Private Sub PDial2_ThumbTrack(ByVal Position As Long, TurnDial As Integer)
  175. Pct2.value = Position
  176. End Sub
  177. Private Sub PDial3_LineDown(ByVal Position As Long, TurnDial As Integer)
  178. Pct3.value = Position
  179. End Sub
  180. Private Sub PDial3_LineUp(ByVal Position As Long, TurnDial As Integer)
  181. Pct3.value = Position
  182. End Sub
  183. Private Sub PDial3_PageDown(ByVal Position As Long, TurnDial As Integer)
  184. Pct3.value = Position
  185. End Sub
  186. Private Sub PDial3_PageUp(ByVal Position As Long, TurnDial As Integer)
  187. Pct3.value = Position
  188. End Sub
  189. Private Sub PDial3_ThumbPosition(ByVal Position As Long, TurnDial As Integer)
  190. Pct3.value = Position
  191. End Sub
  192. Private Sub PDial3_ThumbTrack(ByVal Position As Long, TurnDial As Integer)
  193. Pct3.value = Position
  194. End Sub
  195. Private Sub PVDial1_Click()
  196. End Sub
  197. Private Sub PVDial1_KeyPress(KeyAscii As Integer)
  198. End Sub
  199. Private Sub PVDial1_LineUp(ByVal Position As Long, TurnDial As Integer)
  200. End Sub
  201.